﻿
Partial Class Interfaz_frmContabilidadLibroVentas
    Inherits System.Web.UI.Page
    Dim CL As New ControladorLogica

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If CL.visibilidadesFormsInternos("Contabilidad", Session("user").ToString) = False Then
            Response.Redirect("Index.aspx")
        End If
        If Not Page.IsPostBack Then
            CargarDrop()
        End If
    End Sub

    

#Region "Botones"

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        CargarDatos()
    End Sub
#End Region

#Region "Funcionalidades"
    Public Sub Mensaje(ByVal msg As String)
        Dim alertScript As String = "<script language=JavaScript runat=server>"
        alertScript &= "alert('" & msg & "');"
        alertScript &= "</script>"
        ClientScript.RegisterClientScriptBlock(Page.GetType(), "clientScrip", alertScript)
    End Sub

    Private Sub CargarDrop()
        Me.DropMes.Items.Add("Enero")
        Me.DropMes.Items.Add("Febrero")
        Me.DropMes.Items.Add("Marzo")
        Me.DropMes.Items.Add("Abril")
        Me.DropMes.Items.Add("Mayo")
        Me.DropMes.Items.Add("Junio")
        Me.DropMes.Items.Add("Julio")
        Me.DropMes.Items.Add("Agosto")
        Me.DropMes.Items.Add("Septiembre")
        Me.DropMes.Items.Add("Octubre")
        Me.DropMes.Items.Add("Noviembre")
        Me.DropMes.Items.Add("Diciembre")

        Me.DropAño.Items.Add("2011")
        Me.DropAño.Items.Add("2012")
        Me.DropAño.Items.Add("2013")
        Me.DropAño.Items.Add("2014")
        Me.DropAño.Items.Add("2015")
        Me.DropAño.Items.Add("2016")
        Me.DropAño.Items.Add("2017")
        Me.DropAño.Items.Add("2018")
        Me.DropAño.Items.Add("2019")
        Me.DropAño.Items.Add("2020")
        Me.DropAño.Items.Add("2021")
        Me.DropAño.Items.Add("2022")
        Me.DropAño.Items.Add("2023")
        Me.DropAño.Items.Add("2024")
    End Sub

    Private Function SelectorMes(ByVal mes As String) As String
        Dim returnMes As String = ""

        If mes = "Enero" Then
            returnMes = "01"
        End If

        If mes = "Febrero" Then
            returnMes = "02"
        End If

        If mes = "Marzo" Then
            returnMes = "03"
        End If

        If mes = "Abril" Then
            returnMes = "04"
        End If

        If mes = "Mayo" Then
            returnMes = "05"
        End If

        If mes = "Junio" Then
            returnMes = "06"
        End If

        If mes = "Julio" Then
            returnMes = "07"
        End If

        If mes = "Agosto" Then
            returnMes = "08"
        End If

        If mes = "Septiembre" Then
            returnMes = "09"
        End If

        If mes = "Octubre" Then
            returnMes = "10"
        End If

        If mes = "Noviembre" Then
            returnMes = "11"
        End If

        If mes = "Diciembre" Then
            returnMes = "12"
        End If

        Return returnMes
    End Function

    Private Sub CargarDatos()
        Dim i As Integer
        Dim mes As String = SelectorMes(Me.DropMes.Text)
        Dim Año As String = Me.DropAño.Text.Substring(2, 2).ToString
        Dim mesAño As String = mes + "-" + Año
        Dim netoAnual As Integer = 0
        Dim ivaAnual As Integer = 0
        Dim LibroVenta As New LibroContable

        Me.TxTIvaAnual.Text = 0
        Me.TxTIvaMensual.Text = 0
        Me.TxTNetoAnual.Text = 0
        Me.TxTNetoMensual.Text = 0
        Me.TxTTotalAnual.Text = 0
        Me.TxTTotalMensual.Text = 0

        If (CL.ObtenerLibroVenta(mesAño).Count <> 0) Then
            LibroVenta = DirectCast(CL.ObtenerLibroVenta(mesAño).Item(0), LibroContable)
        Else
            LibroVenta = Nothing
        End If

        If (LibroVenta IsNot Nothing) Then
            Me.TxTNetoMensual.Text = LibroVenta.Neto
            Me.TxTIvaMensual.Text = LibroVenta.Iva
            Me.TxTTotalMensual.Text = LibroVenta.Neto + LibroVenta.Iva
        End If

        For i = 1 To 12
            If i < 10 Then
                mesAño = "0" + CStr(i) + "-" + Año

                If (CL.ObtenerLibroVenta(mesAño).Count <> 0) Then
                    LibroVenta = DirectCast(CL.ObtenerLibroVenta(mesAño).Item(0), LibroContable)
                Else
                    LibroVenta = Nothing
                End If

                If (LibroVenta IsNot Nothing) Then
                    netoAnual = netoAnual + LibroVenta.Neto
                    ivaAnual = ivaAnual + LibroVenta.Iva
                End If

            Else
                mesAño = CStr(i) + "-" + Año

                If (CL.ObtenerLibroVenta(mesAño).Count <> 0) Then
                    LibroVenta = DirectCast(CL.ObtenerLibroVenta(mesAño).Item(0), LibroContable)
                Else
                    LibroVenta = Nothing
                End If

                If (LibroVenta IsNot Nothing) Then
                    netoAnual = netoAnual + LibroVenta.Neto
                    ivaAnual = ivaAnual + LibroVenta.Iva
                End If
            End If
        Next



        Me.TxTNetoAnual.Text = netoAnual
        Me.TxTIvaAnual.Text = ivaAnual
        Me.TxTTotalAnual.Text = netoAnual + ivaAnual


    End Sub
#End Region
End Class
